Armageddon - Interactive Preview/Interactive Preview: Armageddon.iso/pc/control.dxr/Scripts & Behaviors_31_Mug Behavior.ls

Text File | 1998-05-19 | 4.7 KB | 174 lines

property pThisSprite

on new me
  set pThisSprite to the currentSpriteNum
end

on mouseDown me
  set the locV of sprite pThisSprite to the locV of sprite pThisSprite - 4
  updateStage()
  repeat while the stillDown
    set the locH of sprite pThisSprite to the mouseH
    if the locH of sprite pThisSprite < 0 then
      set the locH of sprite pThisSprite to 0
    end if
    if the locH of sprite pThisSprite > 640 then
      set the locH of sprite pThisSprite to 640
    end if
    updateStage()
  end repeat
end

on mouseUp me
  set temp to random(6)
  set the locV of sprite pThisSprite to the locV of sprite pThisSprite + 4
  puppetSound("Cup Down")
  updateStage()
  case temp of
    1:
      nothing()
    2:
      color(me)
    3:
      slide(me)
    4:
      teleport(me)
    5:
      drop(me)
    6:
      spin(me)
  end case
end

on mouseEnter me
  cursor(260)
end

on mouseLeave me
  cursor(0)
end

on color me
  puppetSound(4, "Disco")
  repeat with loop = 1 to 10
    set the member of sprite pThisSprite to "Cycle 1"
    updateStage()
    set thisMember to the memberNum of sprite pThisSprite
    repeat with x = 1 to 7
      if soundBusy(4) then
        set the memberNum of sprite pThisSprite to thisMember + x
        updateStage()
        next repeat
      end if
      exit repeat
    end repeat
    set the member of sprite pThisSprite to "Still Mug"
    updateStage()
  end repeat
end

on slide me
  set temp to random(2)
  set thisH to the locH of sprite pThisSprite
  case temp of
    1:
      set the locH of sprite pThisSprite to the locH of sprite pThisSprite - 50
      puppetSound(4, "Slide Sound Out")
      updateStage()
      repeat while the locH of sprite pThisSprite > -50
        set the locH of sprite pThisSprite to the locH of sprite pThisSprite - 50
        updateStage()
      end repeat
      set the locH of sprite pThisSprite to 700
      puppetSound(4, "Slide Sound In")
      updateStage()
      repeat while the locH of sprite pThisSprite > thisH
        set the locH of sprite pThisSprite to the locH of sprite pThisSprite - 50
        if the locH of sprite pThisSprite < thisH then
          set the locH of sprite pThisSprite to thisH
          updateStage()
          exit repeat
        end if
        updateStage()
      end repeat
    2:
      set the locH of sprite pThisSprite to the locH of sprite pThisSprite + 50
      puppetSound(4, "Slide Sound Out")
      updateStage()
      repeat while the locH of sprite pThisSprite < 700
        set the locH of sprite pThisSprite to the locH of sprite pThisSprite + 50
        updateStage()
      end repeat
      set the locH of sprite pThisSprite to -50
      puppetSound(4, "Slide Sound In")
      updateStage()
      repeat while the locH of sprite pThisSprite < thisH
        set the locH of sprite pThisSprite to the locH of sprite pThisSprite + 50
        if the locH of sprite pThisSprite > thisH then
          set the locH of sprite pThisSprite to thisH
          updateStage()
          exit repeat
        end if
        updateStage()
      end repeat
  end case
  set the locH of sprite pThisSprite to thisH
end

on teleport me
  set temp to random(600) + 10
  set the blend of sprite pThisSprite to 100
  set thisBlend to 100
  puppetSound(4, "Teleport")
  updateStage()
  repeat while the blend of sprite pThisSprite > 0
    set the blend of sprite pThisSprite to thisBlend
    updateStage()
    set thisBlend to thisBlend - 10
  end repeat
  set thisBlend to 0
  set the blend of sprite pThisSprite to thisBlend
  set the locH of sprite pThisSprite to temp
  updateStage()
  repeat while the blend of sprite pThisSprite < 100
    set the blend of sprite pThisSprite to thisBlend
    updateStage()
    set thisBlend to thisBlend + 10
  end repeat
end

on drop me
  set newMember to the memberNum of sprite pThisSprite
  repeat with x = 1 to 6
    set the memberNum of sprite pThisSprite to newMember + 1
    set newMember to newMember + 1
    updateStage()
  end repeat
  set thisBlend to 0
  set temp to random(600) + 10
  set the blend of sprite pThisSprite to thisBlend
  set the member of sprite pThisSprite to "Still Mug"
  set the locH of sprite pThisSprite to temp
  puppetSound(4, "Broke Mug")
  updateStage()
  repeat while the blend of sprite pThisSprite < 100
    set the blend of sprite pThisSprite to thisBlend
    updateStage()
    set thisBlend to thisBlend + 10
  end repeat
end

on spin me
  set the member of sprite pThisSprite to "Spin 01"
  set thisMember to the memberNum of sprite pThisSprite
  updateStage()
  repeat with loop = 1 to 1
    repeat with x = 1 to 16
      set the memberNum of sprite pThisSprite to thisMember + x
      updateStage()
    end repeat
  end repeat
  set the member of sprite pThisSprite to "Still Mug"
  updateStage()
end